home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / perl / msds-prl / ptchds19.zoo / exec_t < prev    next >
Text File  |  1992-02-23  |  2KB  |  63 lines
  1. MS-DOS patches to perl.
  2. Apply this patch to the standard perl source, version 4, patch level 19,
  3. using "patch -p."  Do this in the root directory of the perl source
  4. distribution.
  5.  
  6. You can cat all these patches together and pipe the output to patch -p.
  7.  
  8. Len Reed
  9. Holos Software, Inc.
  10. ..!gatech!holos0!lbr
  11. holos0!lbr@gatech.edu
  12. --------------------------------------
  13. *** t/op/exec.t.old    Tue Apr 23 22:38:14 1991
  14. --- t/op/exec.t    Thu Nov 14 08:57:10 1991
  15. ***************
  16. *** 5,20 ****
  17.   $| = 1;                # flush stdout
  18.   print "1..8\n";
  19.   
  20.   print "not ok 1\n" if system "echo ok \\1";    # shell interpreted
  21.   print "not ok 2\n" if system "echo ok 2";    # split and directly called
  22.   print "not ok 3\n" if system "echo", "ok", "3"; # directly called
  23.   
  24.   if (system "true") {print "not ok 4\n";} else {print "ok 4\n";}
  25.   
  26. ! if ((system "/bin/sh -c 'exit 1'") != 256) { print "not "; }
  27.   print "ok 5\n";
  28.   
  29.   if ((system "lskdfj") == 255 << 8) {print "ok 6\n";} else {print "not ok 6\n";}
  30.   
  31.   unless (exec "lskdjfalksdjfdjfkls") {print "ok 7\n";} else {print "not ok 7\n";}
  32.   
  33. --- 5,33 ----
  34.   $| = 1;                # flush stdout
  35.   print "1..8\n";
  36.   
  37. + eval('umask');    # won't work on MS-DOS
  38. + $msdos = $@;
  39. + 
  40. + $BIN_SH = $msdos ? $ENV{'SHELL'} : '/bin/sh';
  41. + 
  42.   print "not ok 1\n" if system "echo ok \\1";    # shell interpreted
  43.   print "not ok 2\n" if system "echo ok 2";    # split and directly called
  44.   print "not ok 3\n" if system "echo", "ok", "3"; # directly called
  45.   
  46. + # MS-DOS note: MKS toolkit on MS-DOS has 'true' built into Korn shell and no
  47. + # standalone program.  One must supply a standalone true for test 4.
  48. + 
  49.   if (system "true") {print "not ok 4\n";} else {print "ok 4\n";}
  50.   
  51. ! if ((system "$BIN_SH -c 'exit 1'") != 256) { print "not "; }
  52.   print "ok 5\n";
  53.   
  54.   if ((system "lskdfj") == 255 << 8) {print "ok 6\n";} else {print "not ok 6\n";}
  55. + 
  56. + if ($msdos) {
  57. +     print "ok 7\nok 8\n";    # MS-DOS exec is still braindead as of Aug. 91
  58. +     exit;
  59. + }
  60.   
  61.   unless (exec "lskdjfalksdjfdjfkls") {print "ok 7\n";} else {print "not ok 7\n";}
  62.   
  63.